home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / biz / dopus / DOpus56Magyar.lha / DOpus565_magyar / Install_Magellan_magyar next >
Text File  |  1997-10-02  |  3KB  |  109 lines
  1. ; $VER: OpusMagellan magyar telepítõ 1.0 (02/10/97)
  2. ;
  3. ; Script to install the Hungarian translation of Opus 5 Magellan.
  4. ;
  5. ; Original script written by Magnus Holmgren <cmh@lls.se>.
  6. ;
  7. ; Modified for Hungarian by Miklós Árpád <alan@elender.hu>.
  8.  
  9.  
  10. ;=============================================================================
  11. ; Check if Directory Opus 5 is already installed
  12.  
  13. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  14.     (abort "Elõször telepítenie kell a Directory Opus 5-öt.")
  15. )
  16.  
  17. (set @default-dest "")
  18.  
  19. ;=============================================================================
  20. ; Install catalogs
  21. (message "\n\nDirectory Opus 5  - Magyar fordítás és kiegészítõk\n\n"
  22.      "Készítették:\n"
  23.      "Horváth Péter <pcpince@syneco.hu>\n"
  24.      "Miklós Árpád <alan@elender.hu>\n\n"
  25.      "A következõ elemeket telepítem: magyar katalógus a programhoz és minden\n"
  26.      "moduljához, magyar listaablak-menü és felhasználói menü, valamint\n"
  27.      "néhány egyéb, a példa kedvéért készített gombcsoport és menü."
  28. )
  29.  
  30. (copyfiles
  31.     (source  "")
  32.     (dest    "DOpus5:")
  33.     (pattern "Catalogs")
  34. )
  35.  
  36.  
  37. (if (= 1 (exists "DOpus5:Modules/diskinfo.module"))
  38.     (if (< (getversion "DOpus5:Modules/diskinfo.module") 56*65536)
  39.         ; Old diskinfo.module detected. Rename catalogs so the right
  40.         ; one is used, but leave both installed, so that an
  41.         ; experienced user can change without running this script.
  42.         (
  43.             (delete "DOpus5:Catalogs/magyar/diskinfo-new.catalog")
  44.             (rename "DOpus5:Catalogs/magyar/diskinfo.catalog" "DOpus5:Catalogs/magyar/diskinfo-new.catalog")
  45.             (rename "DOpus5:Catalogs/magyar/diskinfo-old.catalog" "DOpus5:Catalogs/magyar/diskinfo.catalog")
  46.         )
  47.     )
  48. )
  49.  
  50. ;=============================================================================
  51. ; Install Hungarian versions of the default buttons
  52.  
  53. (copyfiles
  54.     (source  "Buttons")
  55.     (dest    "DOpus5:Buttons")
  56.     (pattern "#?")
  57. )
  58.  
  59. ;=============================================================================
  60. ; Make Hungarian lister menu the default
  61.  
  62. (if (askbool
  63.         (prompt "Szeretné, ha a listaablakok menüje magyarul jelenne meg?\n\n"
  64.                         "(Az eredeti \"lister menu\" állományt \"lister menu_old\" néven megõrzöm.) "
  65.                    
  66.         )
  67.         (help   "A listaablak-menü magyar változata tartalmazza az Opus "
  68.                 "legfontosabb funkcióit, így azok könnyen elérhetõk."
  69.         )
  70.     )
  71.     (
  72.         (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
  73.         (copyfiles
  74.             (source  "DOpus5:Buttons/lister menu_magyar")
  75.             (dest    "DOpus5:Buttons")
  76.             (newname "lister menu")
  77.         )
  78.     )
  79. )
  80.  
  81. ;=============================================================================
  82. ; Make Hungarian user menu the default
  83.  
  84. (if
  85.     (askbool
  86.         (prompt "Szeretné, ha a felhasználói menü magyarul jelenne meg?\n\n "
  87.                         "(Az eredeti \"user menu\" állományt \"user menu_old\" néven megõrzöm.) "
  88.                    
  89.         )
  90.         (help   "A felhasználói menü magyar változata az Opus egyes "
  91.                 "kiegészítõ funkcióit tartalmazza menübe rendezve."
  92.         )
  93.     )
  94.     (
  95.         (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
  96.         (copyfiles
  97.             (source  "DOpus5:Buttons/user menu_magyar")
  98.             (dest    "DOpus5:Buttons")
  99.             (newname "user menu")
  100.         )
  101.     )
  102. )
  103.  
  104. (message "\n\nA magyar fordítás és kiegészítõk telepítése\n"
  105.      "elkészült. Sok sikert a használathoz!"
  106. )
  107.  
  108. (exit)
  109.